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-- BootLoader.mesa 

-- Last Modified by Sandman, August 14, 1978 10:33 AM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
AUoFileDefs: FROM "altof iledef s" . 
BcdDefs: FROM "bcddefs". 
BootCacheDefs: FROM "bootcachedef s" . 
BootmesaDef s: FROM "bootmesadef s" , 
ControlDefs: FROM "controldef s", 
FakeSegDefs: FROM "fakesegdefs". 
FrameDefs: FROM "framedefs", 
InlineDefs: FROM "in! inedef s" . 
lODefs: FROM "iodefs", 

LoaderBcdUtilDefs: FROM "loaderbcdutildef s" . 
LoaderUtilityDefs: FROM "loaderutil itydefs" . 
LoadStateDefs: FROM "loadstatedef s" . 
SegmentDefs: FROM "segmentdef s", 
StreamDefs: FROM "streamdef s" , 
StringDefs: FROM "stringdef s" . 
SystemDefs: FROM "systemdef s"; 

DEFINITIONS FROM ControlDefs, FakeSegDefs, SegmentDefs, BcdDefs; 

BootLoader: PROGRAM 

IMPORTS BootCacheDefs, BootmesaDef s , FakeSegDefs, lODefs, LoaderBcdUtilDefs, 

LoaderUtilityDefs, SegmentDefs, StreamDefs. StringDefs, SystemDefs 
EXPORTS BootmesaDef s, FrameDefs ■ 

PUBLIC BEGIN 

BcdBase: TYPE = POINTER TO BcdDefs. BCD; 
FakeSegmentHandle: TYPE = FakeSegDefs . FakeSegmentHandle; 
GlobalFrameHandle: TYPE = ControlDefs .GlobalFrameHandle; 
GFTIndex: TYPE » ControlDefs .GFTIndex; 

Load: PROCEDURE [name: STRING] RETURNS [Isseg, initlsseg, fakebcdseg: FakeSegmentHandle] 
BEGIN OPEN ControlDefs, SegmentDefs, FakeSegDefs; 
Islength: CARDINAL; 
swatee: FileHandle; 

bcdseg: FileSegmentHandle <- LoadBcd[NewFile[name, Read. OldFileOnly] 
1 InvalidBcd «> 

BEGIN OPEN lODefs; 

WriteString["Invalid file "L]; WriteString[name]; 

SIGNAL BootmesaDefs.BootAbort; 

END]; 
fakebcdseg ♦- FakeNewSegment[bcdseg.f ile, bcdseg. base, bcdseg. pages, Read]; 
fakebcdseg. Link2 ♦- bcdseg; 
fakebcdseg. CopyToImage <- TRUE; 
Islength <- 

SystemOef s.PagesForWords [Loads tateDefs.BcdArr ay Length + LENGTH[gf t]]; 
swatee <- SegmentDefs .NewFile["swatee" , Read+Write+Append, DefaultVersion]; 
Isseg *- FakeNewSegment[swatee, DefaultBase, Islength, Read+Write]; 
Isseg. CopyToImage <- TRUE; 
initlsseg <- 

FakeNewSegment[swatee, Isseg. Base+lslength, Islength, Read+Write]; 
initl sseg .CopyToImage ♦- TRUE; 
New[bcdseg]; 
RETURN 
END; 

InvalidBcd: SIGNAL [file: FileHandle] « CODE; 

LoadBcd: PROCEDURE [bcdfile: FileHandle] RETURNS [bcdseg: FileSegmentHandle] ■ 
BEGIN OPEN SegmentDefs; 
pages: Al toDef s.PageCqunt; 
bed: BcdBase; 

bcdseg <- NewFileSegment[bcdf ile, 1, 1, Read]; 
Swapln[bcdseg]; 

bed ^ FileSegmentAddress[bcdseg]; 
IF (pages «- bcd.nPages) # 1 THEN 

BEGIN 

Unlock[bcdseg]; 

MoveFileS0gment[bcdseg. 1, pages]; 

Swapln[bcdseg]; 

bed <- Fil8SegmentAddr0ss[bcdseg]; 
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END; 
BEGIN 

ENABLE UNWIND -> 
BEGIN 

Unlock[bcdseg]; 
DeleteFneSegm9nt[bcdseg]; 
END; 
IF bcd.versionident U BcdDefs.VersionlD OR bed. definitions THEN 
ERROR Inva1idBcd[bcdfi1e]; 
END; -- OF OPEN 
Unlock[bcdseg]; 
END; 

New: PROCEDURE [bcdseg: FileSegmentHandle] ■ 
BEGIN OPEN SegmentDefs, LoaderUtil ityDef s; 
loadee: BcdBase; 
Swapln[bcdseg]; 

loadee ♦- FileSegmentAddress[bcdseg]; 
I n i t i a 1 i zeUt i 1 i t i e s [ 1 oadee ] ; 
ModuleTable ^ DESCRIPTOR[SystemDef s. AllocateSegmentC 

1 oadee. nModu1es*SIZE[ModuleInfo]], 1 oadee. nModules]; 
nModulesEntered ^ 0; 
GetCodeFileNames[ loadee]; 
LookupFileTable[ I FileNotFound »> 

BEGIN OPEN lODefs; 

WriteString["Cant find a code file "L]; 

WriteStringfname]; 

SIGNAL BootmesaDefs.BootAbort; 

END]; 
As s i gn F r ameAdd res ses[ loadee]; 
Re locateOnly[ loadee]; 
Final izeUtil ities[]; 

SystemDefs.FreeSegment[BASE [ModuleTable]]; 
Unlock[bcdseg]; 
END; 

FirstFrameWord: TYPE « MACHINE DEPENDENT RECORD [ 
gfi: GFTIndex. 
unused: [0. .3], 

alloced, shared, started: BOOLEAN, 
trapxfers, codelinks: BOOLEAN]; 

GetCodeFileNames: PROCEDURE [loadee: BcdBase] « 
BEGIN 
SegSearch: PROCEDURE [sgh: SGHandle, sgi: SGIndex] RETURNS [BOOLEAN] ■ 

BEGIN 

IF sgh. class = code THEN LoaderUtil ityDef s .AddFileName[sgh. file]; 

RETURN[FALSE] 

END; 
[] ♦- LoaderBcdUtilDefs.EnumerateSegTable[loadee, SegSearch]; 
RETURN 
END; 

RelocateOnly: PROCEDURE [loadee: BcdBase]- 
BEGIN 

ModuleSearch: PROCEDURE [mth: MTHandle, mti: MTIndex] RETURNS [BOOLEAN] « 
BEGIN 

i: CARDINAL; 

frame: Global FrameHandle <- BootCacheDefs.READ[6gft[mth .gfi]. frame]; 
codeseg: FakeSegDefs.FakeSegmentHandle; 
codesegment: SegmentDefs . FileSegmentHandle; 
fw: FirstFrameWord <- BootCacheDef s . READ[frame]; 
codelinks: BOOLEAN <- fw.codel inks; 
linkbase: POINTER TO ControlLink; 
link: ControlLink; 
IF mth. frame. length « THEN 

BEGIN 

ModuleIsBound[mth]; 

RETURN[FALSE]; 

END; 
IF codelinks THEN 

BEGIN OPEN SegmentDefs; 

IF IsModuleBound[nith] THEN RETURN[FALSE] ; 

codeseg ^ BootCacheDef s.READ[§frame. codesegment]; 

codesegment ♦- codeseg. Link2; 

Swaplnfcodesegment]; 
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linkbase <- FileSegmentAdclress[codesegm0nt]+nith. code. offset; 
END 
ELSE linkbase ^ LOOPHOLE[f name]; 
linkbase ♦■ linkbase - mth. frame. length; 
FOR i IN [0.. mth. frame. length) DO 
link ♦- mth. frame. frag[i]; 
SELECT link. tag FROM 
procedure ■> 
BEGIN 

IF link.gfi >■ loadee.f irstdummy THEN link ♦- UnboundLink; 
IF codelinks THEN (1 inkbase+i)t ♦- link 
ELSE BootCacheDefs.WRITE[linkbase+i, link]; 
END; 
frame ■> 
BEGIN 
link <- IF link.gfi >= loadee.f irstdummy THEN NullLink 

ELSE BootCacheDefs.READ[@gft[link.gfi]. frame]; 
IF codelinks THEN (1 inkbase+i)t *- link 
ELSE BootCacheDefs.WRITE[linkbase+i, link]; 
END; 
ENDCASE »> BootCacheDefs.WRITEClinkbase+i. UnboundLink]; 
ENDLOOP; 
ModuleIsBound[mth]; 
IF codelinks THEN 
BEGIN 

SegmentDefs.Unlock[codesegment]; 
codesegment. write <- TRUE; 
SegmentDefs.SwapUp[codesegment]; 
codesegment. write ♦- FALSE; 
END; 
RETURN [FALSE]; 
END; 

[] <- LoaderBcdUtilDef s.EnumerateModuleTable[loadee, ModuleSearch]; 

RETURN 

END; 

AssignFrameAddresses: PROCEDURE [loadee: BcdBase] ■ 
BEGIN 

ssb: BcdDefs.NameString <- LOOPHOLE[loadee+loadee.ssOff set]; 
ModuleSearch: PROCEDURE [mth: MTHandle, mti: MTIndex] RETURNS [BOOLEAN] 
BEGIN OPEN SegmentDefs; 
gfi: GFTIndex; 
i: CARDINAL; 

frame: GlobalFrameHandle; 
codeseg: FakeSegmentHandle; 
framelinks, shared: BOOLEAN; 
gf: GlobalFrame; 

FindSharedModules: PROCEDURE [smth: MTHandle, smti: MTIndex] 
RETURNS [BOOLEAN] - 
BEGIN 

RETURN[smth # mth AND smth. code. sgi = mth, code. sgi] 
END; 

framelinks <- mth. links «= frame OR ~mth.code. 1 inkspace; 
frame <- BootmesaDef s .Al locGlobalFrame[ 

mth.f ramesize, mth .frame. length, framelinks]; 
gfi ^ EnterGlobalFrame[frame, mth.ngfi]; 
IF gfi # mth. gfi THEN 

BEGIN OPEN lODefs; 

WriteString["Invalid bcd"L]; 

SIGNAL BootmesaDefs.BootAbort; 

END; 
codeseg <- FindCodeSegment[loadee, mth. frame]; 
codeseg. Class *- code; 
codeseg. Link ^ NIL; 
shared <- LoaderBcdUtilDef s. EnumerateModuleTable[loadee, 

FindSharedModules]. mth # NIL; 
gf *- [gfi: gfi, unused: 0. copied: FALSE, alloced: FALSE. 

shared: shared, started: FALSE, trapxfers: FALSE, 

codelinks: -framelinks, code: [out[mth. code. off set]]. 

codesegment: LOOPHOLE[codeseg], global:]; 
gf .code, swappedout *- TRUE; 

CopyWrite[from: @gf, to: frame, size: SIZE[GlobalFrame]]; 
IF Loadmap # NIL THEN 

BEGIN OPEN lODefs; 
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WriteString["New: g - "L]; 

WriteNumb8r[frame.NumberFormat[8, FALSE. TRUE. 6]]; 

WriteChar[SP]; 

FOR i IN [mth.name .. mth.name+ssb.size[mth.name]) DO 
WriteChar[ssb.string. t0xt[i]]; 
ENDLOOP; 

WriteChar[CR]; 

END; 
RETURN[FALSE]; 
END; 

[] <- LoaderBcdUtilDef s .EnumerateMocluleTable[loadee, ModuleSearch] ; 

AssignControlModu1es[1oadee]; 

END; 

Copywriter PROCEDURE [from, to: POINTER, size: CARDINAL] ■ 
BEGIN 

i: CARDINAL; 

FOR i IN [0..size) DO BootCacheDef s.WRITE[to+i , (from+i)t]; ENDLOOP; 
RETURN 
END; 

FindCodeSegment: PUBLIC PROCEDURE [ 

loadee: BcdBase, mth: MTHandle, frame: Global FrameHandle] 

RETURNS [seg: FakeSegmentHandle] » 

BEGIN OPEN SegmentDefs; 

file: FileHandle; 

sgh: SGHandle ^ mth. code. sgi+LOOPHOLE[loadee+loadee.sgOffset, CARDINAL]; 

i: CARDINAL; 

pages: CARDINAL; 

FindSegment: PROCEDURE [fs: FakeSegmentHandle] RETURNS [BOOLEAN] - 

BEGIN 

RETURN[fs.File » file AND fs.Base ■ sgh. base AND fs. Pages « pages]; 

END; 
FOR i IN [0. .nModulesEntered) DO 

IF ModuleTable[i]. mth. code. sgi = mth. code. sgi THEN 

RETURN[BootCacheDefs.READ[6ModuleTable[i].frame.codesegment]]; 

ENDLOOP; 
file ^ LoaderUtilityDefs.FileHandleFromTable[sgh.f ile]; 
pages ^ sgh.pages+sgh.extraPages; 
seg ♦- FakeEnumerateSegments[FindSegment]; 
IF seg = NIL THEN 

BEGIN 

seg ♦- FakeNewSegment[f ile, sgh. base, pages. Read]; 

seg.LinkZ *- NewFileSegment[f ile, sgh. base, pages, Read]; 

END; 
ModuleTable[nModulesEntered] ♦- 

ModuleInfo[mth, frame, FALSE, mth. code. sgi]; 
nModulesEntered *- nModulesEntered + 1; 
RETURN 
END; 

Modulelnfo: TYPE « RECORD [ 
mth: MTHandle, 
frame: GlobalFrameHandle, 
bound: BOOLEAN, 
sgi: SGIndex]; 

ModuleTable: DESCRIPTOR FOR ARRAY OF Modulelnfo; 
nModulesEntered: CARDINAL; 

ModulelsBound: PUBLIC PROCEDURE [mth: MTHandle] - 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .nModulesEntered) DO 

IF ModuleTable[i].mth » mth THEN ModuleTable[i]. bound ^ TRUE; 
ENDLOOP; 
RETURN 
END; 

IsModuleBound: PUBLIC PROCEDURE [mth: MTHandle] RETURNS [BOOLEAN] « 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .nModulesEntered) DO 

IF ModuleTable[i].mth « mth AND ModuleTable[i]. bound THEN RETURN[TRUE]; 

ENDLOOP; 
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RETURN[FALSE]; 
END; 

AssignControlModules: PUBLIC PROCEDURE [loadee: BcdBase] ■ 
BEGIN OPEN ControlDefs; 

ctb: CARDINAL <- LOOPHOLE[loade0+1oadee. ctOf f set]; 
mtb: CARDINAL <- LOOPHOLE[loadee+loadee.mtOff set]; 

ModuleSearch: PROCEDURE [mth: MTHandle. mti: MTIndex] RETURNS [BOOLEAN] - 
BEGIN OPEN ControlDefs; 

frame: GlobalFrameHandle <- BootCacheDefs.READ[0gft[mth.gfi] .frame]; 
cti: CTIndex; 
gfi: GFTIndex; 

ControlGfi: PROCEDURE [cti: CTIndex] RETURNS [GFTIndex] « 
BEGIN 
RETURN[IF cti ■ CTNull OR (ctb+cti) . control - MTNull THEN GFTNull 

ELSE (mtb+( ctb+cti). control). gfi]; 
END; 
gfi ♦- ControlGfi[cti *- mth.conf ig]; 

WHILE gfi ■ mth. gfi DO gfi *- ControlGf i[cti ^ (ctb+cti ) .config] ENDLOOP; 
BootCacheDefs.WRITE[@frame.g1obal[0], (IF gfi - GFTNull 

THEN NullGlobalFrame ELSE BootCacheDefs .READ[@gft[gfi] .frame])]; 
RETURN [FALSE]; 
END; 

[] <r LoaderBcdUtilDefs.EnumerateModuleTab1e[1oadee, ModuleSearch]; 
END; 

-- global frame table management 

gft: PRIVATE DESCRIPTOR FOR ARRAY OF GFTItem; 

Initial izeGFT: PROCEDURE [p: POINTER. 1: CARDINAL] - 
BEGIN 

gft <- DESCRIPTOR[p. 1]; 
RETURN 
END; 

EnumerateGlobalFrames: PROCEDURE [ 

proc: PROCEDURE [GlobalFrameHandle] RETURNS [BOOLEAN]] RETURNS [GlobalFrameHandle] » 
BEGIN 

i: GFTIndex; 

frame: GlobalFrameHandle; 
FOR i IN [1 .. LEN6TH[gft]) 

DO 

frame <- BootCacheDefs.READ[6gft[i]. frame]; 

IF frame # NullGlobalFrame AND BootCacheDefs. READ[0gft[i].epbase] « 
AND proc[frame] THEN RETURN [frame]; 

ENDLOOP; 
RETURN [NullGlobalFrame] 
END; 

gftrover: PRIVATE CARDINAL *- 0; 

NoGlobalFrameSlots: SIGNAL [CARDINAL] ■ CODE; 

EnterGlobalFrame: PROCEDURE [frame: GlobalFrameHandle, nslots: CARDINAL] 
RETURNS [entryindex: GFTIndex] « 
BEGIN 

i, imax, n» epoffset: CARDINAL; 

i «- gftrover; imax <- LENGTH[gft] - nslots; n ^ 0; 
DO 

IF (i <r IF i> = imax THEN 1 ELSE i+1) » gftrover THEN 
BEGIN OPEN lODefs; 
WriteString["GFT FulV'L]; 
SIGNAL BootmesaDefs.BootAbort; 
END; 
IF BootCacheDefs. READ[@gft[i]. frame] ^ NullGlobalFrame 
THEN n ♦- 
ELSE 

IF (n<-n+l)»nslots THEN EXIT; 
ENDLOOP; 
entryindex <- (gf trover*-i)-nslots+l; epoffset ♦- 0; 
FOR i IN [entryindex. .gftrover] 
DO 

BootCacheDefs.WRITE[@gft[1]. frame, frame]; 
BootCacheDefs. WRITE[0gft[i].epbase. epoffset]; 
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epoffset ♦- epoffset + EPRange; 

ENDLOOP; 
RETURN 
END; 

- loadmap management 

Loadmap: PRIVATE StreamDef s .StreamHandle *- NIL; 

DisplayChar: PRIVATE PROCEDURE [StreamDef s. StreamHandle, CHARACTER]; 

OpenLoadmap: PROCEDURE [root: STRING] ■ 
BEGIN OPEN StringDefs; 

default: StreamDef s.DisplayHandle ^ StreamDef s.GetDefaultDisplayStream[]; 
name: STRING ♦- [40]; 

AppendString[ name, root]; 

AppendString[name, " .Loadmap"L]; 

Loadmap ♦- StreamDefs.NewByteStream[name, Write+Append];' 

DisplayChar ^ default. put; 

default. put <- LMput; 

RETURN 

END; 

CloseLoadmap: PROCEDURE ■ 
BEGIN 
default: StreamDef s.DisplayHandle ♦- StreamDef s.GetDefaultDisplayStream[]; 

IF default. put # LMput THEN ERROR; 
default. put ♦- DisplayChar; 
Loadmap. destroy [Loadmap]; 
RETURN 
END; 

LMput: PRIVATE PROCEDURE [s: StreamDef s .StreamHandle, c: CHARACTER] - 
BEGIN 

DisplayChar[s, c]; 
Loadmap. put[Loadmap, c]; 
RETURN 
END; 



END 



